home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / GetTitle.ced < prev    next >
Text File  |  1996-09-26  |  572b  |  26 lines
  1. /*
  2.  *
  3.  * Script name:  GetTitle.ced
  4.  * Author:       Franz Hemmer
  5.  * Purpose:      Demonstrate how to get Watcher title bar text, and put
  6.  *               it into the current cursor position in Cygnus Ed.
  7.  * Written:      25.11.92
  8.  * Comments:     You need to have Watcher and CED running.
  9.  *
  10.  */
  11.  
  12. Options FailAt 100
  13. Options Results
  14. address WATCHER1                /* Address Watcher's ARexx port. */
  15. lf = '0A'x
  16.  
  17. /*
  18.  * Try to read the window title bar
  19.  */
  20. ADDRESS WATCHER1 GetTitle
  21. IF rc > 0 THEN
  22.   SAY 'Error was 'WATCHER.LASTERROR
  23. ELSE DO
  24.   ADDRESS 'rexx_ced' text result || lf
  25. END
  26.